(gud-dbx-find-file): Find correct source file.

diff --git a/lisp/gud.el b/lisp/gud.el
index d475e9be36225cc6159963cfadc7d1b545a5e3b8..0f8776f3529eed577744862e6c94a29bbc1c1ad2 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -726,7 +726,7 @@ This works in IRIX 4, 5 and 6.")
   (save-excursion
     (let ((realf (gud-dbx-file-name f)))
       (if realf
-         (let ((buf (find-file-noselect f)))
+         (let ((buf (find-file-noselect realf)))
            (set-buffer buf)
            (gud-make-debug-menu)
            (local-set-key [menu-bar debug up] '("Up Stack" . gud-up))